home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 356 / defs / vdicalls.def < prev    next >
Text File  |  1992-03-11  |  8KB  |  255 lines
  1. DEFINITION MODULE VDIcalls;
  2.  
  3. (*
  4.  *    Copyright (c) 1987,1988,1989 by
  5.  *    ana-systems, Foster City, California.
  6.  *    All Rights Reserved.
  7.  *
  8.  *    This software is furnished under a license and may be used and copied
  9.  *    only in accordance with    the terms of such license and  with the
  10.  *    inclusion of the above copyright notice. This software or any other
  11.  *    copies thereof may not be provided or otherwise made available to any
  12.  *    other  person.    No title to and ownership of the software is herby
  13.  *    transferred.
  14.  *
  15.  *    The information in this software is subject to change without notice
  16.  *    and  should not be construed as a commitment by ana-systems. No
  17.  *    warranty is implied or expressed.
  18.  *)
  19.  
  20. FROM SYSTEM IMPORT ADDRESS;
  21.  
  22. EXPORT QUALIFIED VOpnwk,VClswk,VClrwk,VUpdwk,VqChCells,VExitCur,
  23.                   VEnterCur,VCurUp,VCurDown,VCurRight,VCurLeft,
  24.                  VCurHome,VEeos,VEeol,VsCurAddress,VCurText,VRvon,
  25.                  VRvoff,VqCurAddress,VqTabStatus,VHardCopy,VDspCur,
  26.                  VRmCur,VFormAdv,VOutputWindow,VClearDispList,VpLine,
  27.                  VpMarker,VgText,VFillArea,VBar,VArc,VPie,VCircle,
  28.                  VEllipse,VEllArc,VEllPie,VrBox,VrfBox,VJustified,
  29.                  VstHeight,VstRotation,VsColor,VslType,VslWidth,VslColor,
  30.                  VsmType,VsmHeight,VsmColor,VstFont,VstColor,VsfInterior,
  31.                  VsfStyle,VsfColor,VqColor,VrqLocator,VsmLocator,
  32.                  VrqString,VsmString,VswrMode,VsinMode,VqlAttributes,
  33.                  VqmAttributes,VqfAttributes,VqtAttributes,VstAlignment,
  34.                  VOpnvwk,VClsvwk,VqExtend,VContourFill,VsfPerimeter,
  35.                  VGetPixel,VstEffects,VstPoint,VslEnds,VroCpyfm,
  36.                  VrTrnfm,VscForm,VsfUdpat,VslUdsty,VrRecfl,VqinMode,
  37.                  VqtExtent,VqtWidth,VexTimv,VstLoadFonts,VstUnloadFonts,
  38.                  VrtCpyfm,VShowC,VHideC,VqMouse,VexButv,VexMotv,VexCurv,
  39.                  VqKeys,VsClip,VqtName,VqtFontInfo;
  40.  
  41. PROCEDURE VOpnwk(VAR workin:ARRAY OF INTEGER;
  42.                 VAR handle:INTEGER;
  43.                 VAR workout:ARRAY OF INTEGER);
  44.  
  45. PROCEDURE VClswk(handle:INTEGER);
  46.  
  47. PROCEDURE VClrwk(handle:INTEGER);
  48.  
  49. PROCEDURE VUpdwk(handle:INTEGER);
  50.  
  51. PROCEDURE VqChCells(handle:INTEGER; VAR rows,columns:INTEGER);
  52.  
  53. PROCEDURE VExitCur(handle:INTEGER);
  54.  
  55. PROCEDURE VEnterCur(handle:INTEGER);
  56.  
  57. PROCEDURE VCurUp(handle:INTEGER);
  58.  
  59. PROCEDURE VCurDown(handle:INTEGER);
  60.  
  61. PROCEDURE VCurRight(handle:INTEGER);
  62.  
  63. PROCEDURE VCurLeft(handle:INTEGER);
  64.  
  65. PROCEDURE VCurHome(handle:INTEGER);
  66.  
  67. PROCEDURE VEeos(handle:INTEGER);
  68.  
  69. PROCEDURE VEeol(handle:INTEGER);
  70.  
  71. PROCEDURE VsCurAddress(handle,row,column:INTEGER);
  72.  
  73. PROCEDURE VCurText(handle:INTEGER; VAR string:ARRAY OF CHAR);
  74.  
  75. PROCEDURE VRvon(handle:INTEGER);
  76.  
  77. PROCEDURE VRvoff(handle:INTEGER);
  78.  
  79. PROCEDURE VqCurAddress(handle:INTEGER; VAR row,column:INTEGER);
  80.  
  81. PROCEDURE VqTabStatus(handle:INTEGER):INTEGER;
  82.  
  83. PROCEDURE VHardCopy(handle:INTEGER);
  84.  
  85. PROCEDURE VDspCur(handle,x,y:INTEGER);
  86.  
  87. PROCEDURE VRmCur(handle:INTEGER);
  88.  
  89. PROCEDURE VFormAdv(handle:INTEGER);
  90.  
  91. PROCEDURE VOutputWindow(handle:INTEGER; VAR rect:ARRAY OF INTEGER);
  92.  
  93. PROCEDURE VClearDispList(handle:INTEGER);
  94.  
  95. PROCEDURE VpLine(handle,numPoints:INTEGER; VAR points:ARRAY OF INTEGER);
  96.  
  97. PROCEDURE VpMarker(handle,numPoints:INTEGER; VAR points:ARRAY OF INTEGER);
  98.  
  99. PROCEDURE VgText(handle,x,y:INTEGER; VAR string:ARRAY OF CHAR);
  100.  
  101. PROCEDURE VFillArea(handle,numPoints:INTEGER; VAR points:ARRAY OF INTEGER);
  102.  
  103. PROCEDURE VBar(handle:INTEGER; VAR rect:ARRAY OF INTEGER);
  104.  
  105. PROCEDURE VArc(handle,x,y,radius,beginAngle,endAngle:INTEGER);
  106.  
  107. PROCEDURE VPie(handle,x,y,radius,beginAngle,endAngle:INTEGER);
  108.  
  109. PROCEDURE VCircle(handle,x,y,radius:INTEGER);
  110.  
  111. PROCEDURE VEllipse(handle,x,y,xradius,yradius:INTEGER);
  112.  
  113. PROCEDURE VEllArc(handle,x,y,xradius,yradius,beginAngle,endAngle:INTEGER);
  114.  
  115. PROCEDURE VEllPie(handle,x,y,xradius,yradius,beginAngle,endAngle:INTEGER);
  116.  
  117. PROCEDURE VrBox(handle:INTEGER; VAR rect:ARRAY OF INTEGER);
  118.  
  119. PROCEDURE VrfBox(handle:INTEGER; VAR rect:ARRAY OF INTEGER);
  120.  
  121. PROCEDURE VJustified(handle,x,y:INTEGER; VAR string:ARRAY OF CHAR;
  122.                     length,wordSpacing,charSpacing:INTEGER);
  123.  
  124. PROCEDURE VstHeight(handle,height:INTEGER; 
  125.                     VAR charW,charH,cellW,cellH:INTEGER);
  126.  
  127. PROCEDURE VstRotation(handle,angle:INTEGER):INTEGER;
  128.  
  129. PROCEDURE VsColor(handle,color:INTEGER; VAR rgb:ARRAY OF INTEGER);
  130.  
  131. PROCEDURE VslType(handle,lineType:INTEGER):INTEGER;
  132.  
  133. PROCEDURE VslWidth(handle,lineWidth:INTEGER):INTEGER;
  134.  
  135. PROCEDURE VslColor(handle,color:INTEGER):INTEGER;
  136.  
  137. PROCEDURE VsmType(handle,shape:INTEGER):INTEGER;
  138.  
  139. PROCEDURE VsmHeight(handle,height:INTEGER):INTEGER;
  140.  
  141. PROCEDURE VsmColor(handle,color:INTEGER):INTEGER;
  142.  
  143. PROCEDURE VstFont(handle,fontID:INTEGER):INTEGER;
  144.  
  145. PROCEDURE VstColor(handle,color:INTEGER):INTEGER;
  146.  
  147. PROCEDURE VsfInterior(handle,style:INTEGER):INTEGER;
  148.  
  149. PROCEDURE VsfStyle(handle,index:INTEGER):INTEGER;
  150.  
  151. PROCEDURE VsfColor(handle,color:INTEGER):INTEGER;
  152.  
  153. PROCEDURE VqColor(handle,color,flag:INTEGER; VAR rgb:ARRAY OF INTEGER);
  154.  
  155. PROCEDURE VrqLocator(handle,x,y:INTEGER; VAR finalX,finalY,term:INTEGER);
  156.  
  157. PROCEDURE VsmLocator(handle,x,y:INTEGER;
  158.                     VAR finalX,finalY,term:INTEGER):INTEGER;
  159.  
  160. PROCEDURE VrqString(handle,length,echo:INTEGER; VAR echoXY:ARRAY OF INTEGER;
  161.                     VAR string:ARRAY OF CHAR);
  162.  
  163. PROCEDURE VsmString(handle,length,echo:INTEGER; VAR echoXY:ARRAY OF INTEGER;
  164.                     VAR string:ARRAY OF CHAR):INTEGER;
  165.  
  166. PROCEDURE VswrMode(handle,mode:INTEGER):INTEGER;
  167.  
  168. PROCEDURE VsinMode(handle,device,mode:INTEGER);
  169.  
  170. PROCEDURE VqlAttributes(handle:INTEGER; VAR setting:ARRAY OF INTEGER);
  171.  
  172. PROCEDURE VqmAttributes(handle:INTEGER; VAR setting:ARRAY OF INTEGER);
  173.  
  174. PROCEDURE VqfAttributes(handle:INTEGER; VAR setting:ARRAY OF INTEGER);
  175.  
  176. PROCEDURE VqtAttributes(handle:INTEGER; VAR setting:ARRAY OF INTEGER);
  177.  
  178. PROCEDURE VstAlignment(handle,hAlign,vAlign:INTEGER; VAR hSet,vSet:INTEGER);
  179.  
  180. PROCEDURE VOpnvwk(VAR workin:ARRAY OF INTEGER;
  181.                 VAR handle:INTEGER;
  182.                 VAR workout:ARRAY OF INTEGER);
  183.  
  184. PROCEDURE VClsvwk(handle:INTEGER);
  185.  
  186. PROCEDURE VqExtend(handle,flag:INTEGER; VAR workout:ARRAY OF INTEGER);
  187.  
  188. PROCEDURE VContourFill(handle,x,y,color:INTEGER);
  189.  
  190. PROCEDURE VsfPerimeter(handle,visible:INTEGER):INTEGER;
  191.  
  192. PROCEDURE VGetPixel(handle,x,y:INTEGER; VAR register,color:INTEGER);
  193.  
  194. PROCEDURE VstEffects(handle,effects:INTEGER):INTEGER;
  195.  
  196. PROCEDURE VstPoint(handle,points:INTEGER; 
  197.                     VAR charW,charH,cellW,cellH:INTEGER):INTEGER;
  198.  
  199. PROCEDURE VslEnds(handle,begin,end:INTEGER);
  200.  
  201. PROCEDURE VroCpyfm(handle,mode:INTEGER; VAR rect:ARRAY OF INTEGER;
  202.                     source,destination:ADDRESS);
  203.  
  204. PROCEDURE VrTrnfm(handle:INTEGER; source,destination:ADDRESS);
  205.  
  206. PROCEDURE VscForm(handle:INTEGER; VAR data:ARRAY OF INTEGER);
  207.  
  208. PROCEDURE VsfUdpat(handle:INTEGER; VAR data:ARRAY OF INTEGER; planes:INTEGER);
  209.  
  210. PROCEDURE VslUdsty(handle,pattern:INTEGER);
  211.  
  212. PROCEDURE VrRecfl(handle:INTEGER; VAR rect:ARRAY OF INTEGER);
  213.  
  214. PROCEDURE VqinMode(handle,device:INTEGER; VAR mode:INTEGER);
  215.  
  216. PROCEDURE VqtExtent(handle:INTEGER; VAR string:ARRAY OF CHAR; 
  217.                     VAR rect:ARRAY OF INTEGER);
  218.  
  219. PROCEDURE VqtWidth(handle:INTEGER; ch:CHAR;
  220.                     VAR cellW,leftOffset,rightOffset:INTEGER):INTEGER;
  221.  
  222. PROCEDURE VexTimv(physHandle:INTEGER; VAR newAddr,oldAddr:ADDRESS;
  223.                     VAR tickLength:INTEGER);
  224.  
  225. PROCEDURE VstLoadFonts(handle,select:INTEGER):INTEGER;
  226.  
  227. PROCEDURE VstUnloadFonts(handle,select:INTEGER);
  228.  
  229. PROCEDURE VrtCpyfm(handle,mode:INTEGER; VAR rect:ARRAY OF INTEGER;
  230.                     source,destination:ADDRESS; VAR color:ARRAY OF INTEGER);
  231.  
  232. PROCEDURE VShowC(handle,reset:INTEGER);
  233.  
  234. PROCEDURE VHideC(handle:INTEGER);
  235.  
  236. PROCEDURE VqMouse(handle:INTEGER; VAR button,x,y:INTEGER);
  237.  
  238. PROCEDURE VexButv(physHandle:INTEGER; VAR newAddr,oldAddr:ADDRESS);
  239.  
  240. PROCEDURE VexMotv(physHandle:INTEGER; VAR newAddr,oldAddr:ADDRESS);
  241.  
  242. PROCEDURE VexCurv(physHandle:INTEGER; VAR newAddr,oldAddr:ADDRESS);
  243.  
  244. PROCEDURE VqKeys(handle:INTEGER; VAR key:INTEGER);
  245.  
  246. PROCEDURE VsClip(handle,clipFlag:INTEGER; VAR clipRect:ARRAY OF INTEGER);
  247.  
  248. PROCEDURE VqtName(handle,number:INTEGER; VAR name:ARRAY OF CHAR):INTEGER;
  249.  
  250. PROCEDURE VqtFontInfo(handle:INTEGER; VAR minChar,maxChar:INTEGER;
  251.                         VAR dimensions,effects:ARRAY OF INTEGER;
  252.                         VAR maxWidth:INTEGER);
  253.  
  254. END VDIcalls.
  255.